(rfc822-nuke-whitespace): Fix character constant.

diff --git a/lisp/mail/rfc822.el b/lisp/mail/rfc822.el
index 7c32b251bf985d75be5c9d0a658c5a4cdf90ed8f..989f43cd5a5146bf1bb12b21f3feb8fd1b38300c 100644 (file)
--- a/lisp/mail/rfc822.el
+++ b/lisp/mail/rfc822.el
@@ -75,7 +75,7 @@
                  (forward-char -1)
                  (delete-char 2)
                  t)
-                ((memq ch '(?\ ?\t ?\n))
+                ((memq ch '(?\  ?\t ?\n))
                  (delete-region (point)
                                 (progn (skip-chars-forward " \t\n") (point)))
                  t)